program Led_Esc;

uses
  Forms,
  copia in 'copia.pas' {copiar},
  Apagar in 'Apagar.pas' {Paga},
  calc in 'calc.pas' {Calcula},
  confere in 'confere.pas' {conferencia},
  Confronto in 'Confronto.pas' {Confrontar},
  cria in 'cria.pas' {contabil},
  depre in 'depre.pas' {Deprecia},
  forne01 in 'forne01.pas' {fornecedor},
  relat01 in 'relat01.pas' {relacao},
  relat02 in 'relat02.pas' {relatQuickReport2: TQuickRep},
  relat03 in 'relat03.pas' {relatQuickReport3: TQuickRep},
  simples01 in 'simples01.pas' {Simples},
  unitecf in 'unitecf.pas' {ecf},
  valida in 'valida.pas' {Validador},
  Unit24 in 'Unit24.pas' {Form24},
  Unit1 in 'Unit1.pas' {Form1},
  windows,
  SysUtils,
  classes,
  bancario in 'bancario.pas' {extratobanco},
  MEI in 'MEI.pas' {MICROEMPRESA},
  siare in 'siare.pas' {Siaremg},
  icmsonline in 'icmsonline.pas' {icms},
  Unit2 in 'Unit2.pas' {Form2},
  SERVER in 'SERVER.pas' {SERVIDOR},
  fatura in 'fatura.pas' {Faturamento},
  dm in 'dm.pas' {base: TDataModule};

{$R *.res}
  {$R rl.RES}

procedure copia;
begin
copyfile(pchar(extractfilepath(paramstr(0))+'zip32.dll'), pchar('c:\windows\system32\zip32.dll'),true);
copyfile(pchar(extractfilepath(paramstr(0))+'unzip32.dll'), pchar('c:\windows\system32\unzip32.dll'),true);
copyfile(pchar(extractfilepath(paramstr(0))+'ssleay32.dll'), pchar('c:\windows\system32\ssleay32.dll'),true);
copyfile(pchar(extractfilepath(paramstr(0))+'libeay32.dll'), pchar('c:\windows\system32\libeay32.dll'),true);

copyfile(pchar(extractfilepath(paramstr(0))+'Project1.rav'), pchar('c:\Project1.rav'),true);
copyfile(pchar(extractfilepath(paramstr(0))+'Project2.rav'), pchar('c:\Project2.rav'),true);
copyfile(pchar(extractfilepath(paramstr(0))+'Project3.rav'), pchar('c:\Project3.rav'),true);
copyfile(pchar(extractfilepath(paramstr(0))+'Ficha.fr3'), pchar('c:\Ficha.fr3'),true);

end;






begin
  copia;
  Application.Initialize;
  //application.ShowMainForm:= false;
  Application.CreateForm(Tbase, base);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  // Application.CreateForm(TFaturamento, Faturamento);
  {Application.CreateForm(TSERVIDOR, SERVIDOR);
  Application.CreateForm(Ticms, icms);
  Application.CreateForm(TSiaremg, Siaremg);
  Application.CreateForm(TMICROEMPRESA, MICROEMPRESA);
  Application.CreateForm(TBanco, Banco);
  Application.CreateForm(Tcopiar, copiar);
  Application.CreateForm(TPaga, Paga);
  Application.CreateForm(TapagarQuickReport2, apagarQuickReport2);
  Application.CreateForm(TCalcula, Calcula);
  Application.CreateForm(Tconferencia, conferencia);
  Application.CreateForm(TConfrontar, Confrontar);
  Application.CreateForm(Tcontabil, contabil);
  Application.CreateForm(TDeprecia, Deprecia);
  Application.CreateForm(Tfornecedor, fornecedor);
  Application.CreateForm(TforneQuickReport2, forneQuickReport2);
  Application.CreateForm(Trelacao, relacao);
  Application.CreateForm(TrelatQuickReport2, relatQuickReport2);
  Application.CreateForm(TrelatQuickReport3, relatQuickReport3);
  Application.CreateForm(TSimples, Simples);
  Application.CreateForm(Tecf, ecf);
  Application.CreateForm(TValidador, Validador);
  Application.CreateForm(TForm24, Form24);  }
  Application.Run;
end.
